home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / LOWER_CS.LST < prev    next >
Encoding:
File List  |  1992-01-16  |  237 b   |  12 lines
  1. PROCEDURE lower_case(VAR txt$)
  2.   LOCAL xa%,xb%
  3.   IF LEN(txt$)
  4.     FOR xa%=1 TO LEN(txt$)
  5.       xb%=ASC(MID$(txt$,xa%,1))
  6.       IF xb%>64 AND xb%<91
  7.         MID$(txt$,xa%,1)=CHR$(xb%+32)
  8.       ENDIF
  9.     NEXT xa%
  10.   ENDIF
  11. RETURN
  12.